home *** CD-ROM | disk | FTP | other *** search
- %case doChoice%
- %DoChoice%
- %case itemNr%
- %DefineItem%
- %case classDecl%
- %if not classname = superClass%
-
- TYPE
- %classname% = OBJECT (%superClass%)
- OVERRIDE METHOD Draw (area: Rect);
- (*${QINSPECTOR*)
- OVERRIDE METHOD Fields (DoToField: DoToFieldMETHOD);
- (*$}*)
- END(*%classname%*);
- %endif%
- %case gDeadStripSuppression%
- %StripSuppression%
- %case classMethods%
- %if not classname = superClass%
- {----------}
- METHOD T%dlogname%.Draw (area: Rect);
- BEGIN
- (*. Put something useful here .*)
- END Draw;
-
- %endif%
- %ClassMethods%
- %case defImports%
- FROM Types IMPORT
- Rect;
- %case modImports%
- FROM Types IMPORT
- Rect;
-